home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_pcdp / ada / incr.ada < prev    next >
Text File  |  1996-01-30  |  423b  |  24 lines
  1. with Text_IO; use Text_IO;
  2. procedure Incr is
  3.   pragma Time_Slice(0.01);
  4.  
  5.   N: Integer := 0;
  6.   pragma Volatile(N);
  7.  
  8.   task type Increment;
  9.   task body Increment is
  10.   begin
  11.     for I in 1..100_000 loop
  12.       N := N + 1;
  13.     end loop;
  14.   end Increment;
  15.  
  16. begin
  17.   declare
  18.     Increment_1, Increment_2: Increment;
  19.   begin
  20.     null;
  21.   end;
  22.   Put_Line("Number of iterations = " & Integer'Image(N));
  23. end Incr;
  24.